home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aab.d64 / proc.test'signal < prev    next >
Text File  |  2007-02-28  |  1KB  |  41 lines
  1. 0010 ╨╥╧├ TEST'SIGNAL(TYPE#,FREQ,CYCLE,╥┼╞ SAMPLE(),N#) ├╠╧╙┼─
  2. 0020   //  BY ╘OM ╦UIPER 1985
  3. 0025   //
  4. 0030   // ─ERIVES A SERIES SAMPLES FROM
  5. 0040   // OSCILLATOR THREE OF THE SOUND
  6. 0050   // INTERFACE DEVICE (SID).
  7. 0055   //
  8. 0060   // ┴ 205 HZ WAVEFORM IS SAMPLED
  9. 0070   // AT THE ╬YQUIST FREQUENCY,
  10. 0080   // I.E. WITH 2 SAMPLES PER CYCLE.
  11. 0090   // TYPE#  : 0-TRIANGLE,
  12. 0100   // 1-TRIANGLE, 2-SAWTOOTH, 4-PULSE
  13. 0110   // ╞ORMS MAY BE LOGICALLY ┴╬─ED
  14. 0120   // BY SUMMING THESE VALUES:
  15. 0130   // FREQ   : FREQUENCY IN HZ
  16. 0140   // CYCLE  : PULSE DUTY CYCLE IN %
  17. 0150   // F'TYPE#: 1-LOW PASS,
  18. 0160   //          2-BANDPASS,
  19. 0170   //          3-HIGH PASS FILTER
  20. 0180   // F'FREQ : FILTER CUTOFF OR
  21. 0190   //          CENTER FREQUENCY IN HZ
  22. 0200   // SAMPLE : OUTPUT ARRAY
  23. 0210   // N#     : NUMBER OF SAMPLES
  24. 0220   //
  25. 0230   ╒╙┼ SOUND
  26. 0240   SID:=$D400
  27. 0250   FR:=FREQ*16.77722
  28. 0260   SETFREQUENCY(3,FR)
  29. 0270   PW:=CYCLE*40.95
  30. 0280   PULSE(3,PW)
  31. 0290   VOLUME(15)
  32. 0300   ╔╞ TYPE#=0 ╘╚┼╬
  33. 0310     SOUNDTYPE(3,4)
  34. 0320   ┼╠╙┼ 
  35. 0330     ╨╧╦┼ SID+$12,16*TYPE#
  36. 0340   ┼╬─╔╞ 
  37. 0350   ╞╧╥ I#:=0 ╘╧ N#-1 ─╧
  38. 0360     SAMPLE(I#):=OSC3
  39. 0370   ┼╬─╞╧╥ I#
  40. 0380 ┼╬─╨╥╧├ TEST'SIGNAL
  41.